home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / vpi1_330.zip / ONELABEL.PRG < prev    next >
Text File  |  1992-02-04  |  2KB  |  69 lines
  1. ***************************************************************************
  2. **  ONELABEL.PRG
  3. **  (C) Copyright 1990-92, Sub Rosa Publishing Inc.
  4. **
  5. **  A demonstration program provided to VP-Info users.
  6. **  This program may be copied freely. If it is used in commercial code,
  7. **  please credit the source, Sub Rosa Publishing Inc.
  8. **
  9. **  ONELABEL is a sample program to print mailing labels with very little
  10. **  effort. Key in the text lines and make one or many copies of each label.
  11. **  ONELABEL compatible with all current versions of VP-Info.
  12. **
  13. **  Bernie Melman and Sid Bursten
  14. ***************************************************************************
  15. ERASE
  16. CLEAR
  17. SET TALK OFF
  18. mlength=0
  19. DO WHILE mlength<6 OR mlength>18
  20.    INPUT "Label length in lines (6-18): " TO mlength
  21. ENDDO
  22. SET EJECT OFF ; INFO uses line feeds instead of form feed
  23. SET LENGTH TO mlength
  24. line1=blank(28)
  25. line2=blank(28)
  26. line3=blank(28)
  27. line4=blank(28)
  28. line5=blank(28)
  29. ON escape       ;tell VP-Info what to do when <Esc> pressed
  30.    SET eject on
  31.    SET length to 99
  32.    SET print off
  33.    WINDOW
  34.    CURSOR 22,0
  35.    CANCEL
  36. ENDON
  37. DO WHILE t      ;infinite loop - press escape to quit
  38.    SET PRINT Off
  39.    WINDOW 10,10,20,70
  40.    TEXT
  41.    PRESS <END> KEY TO PRINT A LABEL
  42.    PRESS <ESC> KEY TO EXIT
  43.  
  44.    Line1  @line1
  45.    Line2  @line2
  46.    Line3  @line3
  47.    Line4  @line4
  48.    Line5  @line5
  49.    ENDTEXT
  50.    READ
  51. *   SCREEN 2    ;make printing invisible on screen 1
  52.    SET text off
  53.    SET print on
  54.    TEXT
  55. #line1
  56. #line2
  57. #line3
  58. #line4
  59. #line5
  60.    ENDTEXT
  61.    EJECT
  62. *   SCREEN 1    ;go back to displaying on screen 1
  63. ENDDO
  64. SET PRINT OFF
  65. SET EJECT ON
  66. CHAIN samples
  67. *
  68. *                 *** end of program ONELABEL.PRG ***
  69.